home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Programming / powerd / modules.lha / modules / rexx / rxslib.m < prev    next >
Encoding:
Text File  |  2000-06-04  |  1.1 KB  |  75 lines
  1. MODULE    'rexx/storage'
  2.  
  3. #define RXSNAME  'rexxsyslib.library'
  4. #define RXSDIR   'REXX'
  5. #define RXSTNAME 'ARexx'
  6.  
  7. OBJECT RxsLib
  8.     Node:Lib,
  9.     Flags:UBYTE,
  10.     Shadow:UBYTE,
  11.     SysBase:APTR,
  12.     DOSBase:APTR,
  13.     IeeeDPBase:APTR,
  14.     SegList:LONG,
  15.     NIL:LONG,
  16.     Chunk:LONG,
  17.     MaxNest:LONG,
  18.     NULL:PTR TO NexxStr,
  19.     FALSE:PTR TO NexxStr,
  20.     TRUE:PTR TO NexxStr,
  21.     REXX:PTR TO NexxStr,
  22.     COMMAND:PTR TO NexxStr,
  23.     STDIN:PTR TO NexxStr,
  24.     STDOUT:PTR TO NexxStr,
  25.     STDERR:PTR TO NexxStr,
  26.  
  27.     Version:PTR TO CHAR,
  28.  
  29.     TaskName:PTR TO CHAR,
  30.     TaskPri:LONG,
  31.     TaskSeg:LONG,
  32.     StackSize:LONG,
  33.     RexxDir:PTR TO CHAR,
  34.     CTABLE:PTR TO CHAR,
  35.     Notice:PTR TO CHAR,
  36.  
  37.     RexxPort:MP,
  38.     ReadLock:UWORD,
  39.     TraceFH:LONG,
  40.     TaskList:LH,
  41.     NumTask:WORD,
  42.     LibList:LH,
  43.     NumLib:WORD,
  44.     ClipList:LH,
  45.     NumClip:WORD,
  46.     MsgList:LH,
  47.     NumMsg:WORD,
  48.     PgmList:LH,
  49.     NumPgm:WORD,
  50.  
  51.     TraceCnt:UWORD,
  52.     avail:WORD
  53.  
  54. CONST    RLFB_TRACE=RTFB_TRACE,
  55.         RLFB_HALT=RTFB_HALT,
  56.         RLFB_SUSP=RTFB_SUSP,
  57.         RLFB_STOP=6,
  58.         RLFB_CLOSE=7
  59.  
  60. CONST    RLFMASK=1<<RLFB_TRACE|1<<RLFB_HALT|1<<RLFB_SUSP
  61.  
  62. CONST    RXSCHUNK=1024,
  63.         RXSNEST=32,
  64.         RXSTPRI=0,
  65.         RXSSTACK=4096
  66.  
  67. FLAG    CT_SPACE,
  68.         CT_DIGIT,
  69.         CT_ALPHA,
  70.         CT_REXXSYM,
  71.         CT_REXXOPR,
  72.         CT_REXXSPC,
  73.         CT_UPPER,
  74.         CT_LOWER
  75.